home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Dr. Windows 3
/
dr win3.zip
/
dr win3
/
VISUALBA
/
ZIPINF.ZIP
/
SAMPLE.ZIP
/
ZSAMPLE2.FRM
< prev
Wrap
Text File
|
1993-12-20
|
4KB
|
147 lines
VERSION 2.00
Begin Form ZSample2
BorderStyle = 3 'Fixed Double
Caption = "Open ZIP File"
ClientHeight = 3270
ClientLeft = 2715
ClientTop = 3465
ClientWidth = 7215
ControlBox = 0 'False
Height = 3675
Left = 2655
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 3270
ScaleWidth = 7215
Top = 3120
Width = 7335
Begin DriveListBox Drive1
Height = 315
Left = 3000
TabIndex = 4
Top = 2760
Width = 2535
End
Begin DirListBox Dir1
Height = 1605
Left = 3000
TabIndex = 8
Top = 840
Width = 2535
End
Begin FileListBox File1
Height = 2175
Left = 240
Pattern = "*.ZIP"
TabIndex = 5
Top = 840
Width = 2535
End
Begin TextBox Text1
Height = 285
Left = 240
TabIndex = 3
Top = 480
Width = 2535
End
Begin CommandButton Command2
Caption = "Cancel"
Height = 375
Left = 5760
TabIndex = 1
Top = 720
Width = 1215
End
Begin CommandButton Command1
Caption = "OK"
Default = -1 'True
Height = 375
Left = 5760
TabIndex = 0
Top = 240
Width = 1215
End
Begin Label Label4
Caption = "Drives:"
Height = 255
Left = 3000
TabIndex = 9
Top = 2520
Width = 1335
End
Begin Label Label3
Height = 255
Left = 3000
TabIndex = 7
Top = 525
Width = 2535
End
Begin Label Label2
Caption = "Directories:"
Height = 255
Left = 3000
TabIndex = 6
Top = 240
Width = 1335
End
Begin Label Label1
Caption = "File Name:"
Height = 255
Left = 240
TabIndex = 2
Top = 240
Width = 1335
End
End
Option Explicit
Sub Command1_Click ()
On Error GoTo ErrorHandle
If Right$(Dir1.Path, 1) = "\" Then
ZSample.ZipInfo1.FileName = Dir1.Path + File1.FileName
Else
ZSample.ZipInfo1.FileName = Dir1.Path + "\" + File1.FileName
End If
If ZSample.ZipInfo1.ListCount >= 0 Then
ZSample2.Hide
End If
Exit Sub
ErrorHandle:
MsgBox Error$(Err), 48, "Open ZIP"
On Error Resume Next
Resume ExitError
ExitError:
End Sub
Sub Command2_Click ()
ZSample2.Hide
End Sub
Sub Dir1_Change ()
Label3.Caption = Dir1.Path
File1.Path = Dir1.Path
End Sub
Sub Drive1_Change ()
Dir1.Path = Drive1.Drive
End Sub
Sub File1_Click ()
Text1.Text = File1.FileName
End Sub
Sub File1_DblClick ()
Command1_Click
End Sub
Sub Form_Load ()
Label3.Caption = Dir1.Path
End Sub